home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D1.D64 / text enhancer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.2 KB  |  112 lines
  1. 5 PRINT"[147]":POKE53281,0:POKE53280,0
  2. 10 D=10:BD=10:REM VALUES FOR DELAYS
  3. 15 S=0:REM SOUND IS OFF
  4. 20 X=0:Y=10:REM CO-ORDINATES OF START                   OF TEXT
  5. 30 A$="WELCOME TO LETTERPRINT BY STEVEN HAMMOND":REM TEXT GOES IN A$
  6. 40 P$="BN1D11":REM PARAMETERS GO IN P$
  7. 50 GOSUB50000:REM CALL THE PRINT ROUTINE
  8. 60 GOSUB1000:REM CALL DELAY BETWEEN                      PRINTS
  9. 70 A$="THIS IS A VERSATILE PROGRAM"
  10. 80 X=7:Y=10:P$="WN0N11":GOSUB50000:GOSUB1000
  11. 90 A$="TO ALLOW YOU TO PRINT TEXT ON THE SCREEN"
  12. 100 X=0:Y=10:P$="RN0N00":GOSUB50000:GOSUB1000
  13. 110 A$="IN A VARIETY OF MANNERS"
  14. 120 X=8:Y=10:D=40:P$="WU0N00":GOSUB50000
  15. 125 FORT=1TO1000:NEXTT
  16. 130 A$="IN A VARIETY OF MANNERS"
  17. 140 X=8:Y=10:D=40:P$="WD0N00":GOSUB50000:PRINT"[147]":D=10
  18. 150 A$="THERE ARE MANY THINGS TO CHANGE"
  19. 160 X=5:Y=10:P$="GN0N00":GOSUB50000:GOSUB1000
  20. 170 A$="SUCH AS POSITION ON SCREEN"
  21. 180 X=0:Y=0:P$="BN0N00":GOSUB50000:GOSUB1010
  22. 190 A$="WHETHER PRINTED A BIT AT A TIME"
  23. 200 X=0:Y=3:P$="BN0N10":GOSUB50000:GOSUB1010
  24. 210 A$="WITH A CURSOR"
  25. 220 X=0:Y=5:P$="BN0N11":GOSUB50000:GOSUB1010
  26. 230 A$="WITH A CURSOR OF YOUR CHOICE"
  27. 240 X=0:Y=7:P$="BN0N11[175]":GOSUB50000:GOSUB1010
  28. 250 A$="WITH A LINE"
  29. 260 X=0:Y=9:P$="BN1N11":GOSUB50000:GOSUB1010
  30. 270 A$="OR A FADING LINE"
  31. 280 X=0:Y=12:P$="WN1D11":GOSUB50000:GOSUB1010
  32. 290 A$="YOU CAN HAVE THE TEXT SLOW"
  33. 300 X=0:Y=14:P$="GN0N11":BD=50:GOSUB50000:GOSUB1010
  34. 310 A$="OR VERY FAST IF YOU LIKE"
  35. 320 X=0:Y=16:P$="GN0N11":BD=2:GOSUB50000:GOSUB1010
  36. 330 A$="AND OF COURSE IN A CHOICE OF COLOURS"
  37. 340 BD=10:X=0:Y=18:P$="RD0N00":GOSUB50000:GOSUB1000
  38. 350 A$="AND WITH SOUND SHOULD YOU NEED IT":X=0:Y=0:P$="GN0N10":S=1:GOSUB50000
  39. 360 S=0:GOSUB1000
  40. 370 A$="DEMONSTRATION OVER":X=10:Y=10:P$="":GOSUB50000
  41. 999 GOTO999
  42. 1000 FORT=1TO1000:NEXTT:PRINT"[147]":RETURN
  43. 1010 FORT=1TO1000:NEXTT:RETURN
  44. 50000 IFP$=""THENP$="WN1D1N"
  45. 50005 C$=LEFT$(P$,1):F$=MID$(P$,2,1)
  46. 50010 L=VAL(MID$(P$,3,1))
  47. 50020 IFL=1THENBAT=VAL(MID$(P$,5,1)):LF$=MID$(P$,4,1)
  48. 50030 IFL=0THENBAT=VAL(MID$(P$,5,1)):LF$=MID$(P$,4,1)
  49. 50040 IFBAT=1ANDL=1THENCU=VAL(MID$(P$,6,1))
  50. 50050 IFBAT=1ANDL=0THENCU=VAL(MID$(P$,6,1))
  51. 50070 IFCU=1ANDL=0THENCT$=MID$(P$,7,1)
  52. 50080 IFCU=1ANDL=1THENCT$=MID$(P$,7,1)
  53. 50085 IFCT$=""THENCT$=" [146]"
  54. 50086 F1$=F$
  55. 50090 IFC$="W"ANDF$="U"THENCO$="[151][152][155]"
  56. 50100 IFC$="W"ANDF$="D"THENCO$="[155][152][151]"
  57. 50105 IFC$="W"ANDLF$<>"N"THENG$="[155][152][151]"
  58. 50110 IFC$="B"ANDF$="U"THENCO$="[154][159]"
  59. 50120 IFC$="B"ANDF$="D"THENCO$="[159][154]"
  60. 50125 IFC$="B"ANDLF$<>"N"THENG$="[159][154]"
  61. 50130 IFC$="G"ANDF$="U"THENCO$="[153]"
  62. 50140 IFC$="G"ANDF$="D"THENCO$="[153]"
  63. 50145 IFC$="G"ANDLF$<>"N"THENG$="[153]"
  64. 50150 IFC$="R"ANDF$="U"THENCO$="[150]"
  65. 50160 IFC$="R"ANDF$="D"THENCO$="[150]"
  66. 50165 IFC$="R"ANDLF$<>"N"THENG$="[150]"
  67. 50170 IFC$="Y"ANDF$="U"THENCO$="[129][158]"
  68. 50180 IFC$="Y"ANDF$="D"THENCO$="[158][129]"
  69. 50182 F$=F1$
  70. 50185 IFC$="Y"ANDLF$<>"N"THENG$="[158][129]"
  71. 50190 K$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  72. 50200 Y$=""
  73. 50210 LI$=LEFT$(K$,LEN(A$))
  74. 50212 V$=LEFT$(Y$,Y)
  75. 50215 IFBAT=1THEN50240
  76. 50220 IFF$="N"THENGOSUB50400:GOSUB50450
  77. 50230 IFF$<>"N"THENGOSUB50500
  78. 50240 IFCU=0ANDBAT=1THENGOSUB50600
  79. 50250 IFCU=1ANDBAT=1THENGOSUB50700
  80. 50260 IFL=0THENRETURN
  81. 50270 IFLF$="U"THENGOSUB51000
  82. 50275 IFLF$="D"THENGOSUB50800
  83. 50280 IFLF$="N"THENGOSUB50400:GOSUB50900
  84. 50395 RETURN
  85. 50400 IFC$="W"THENCO$="[151]"
  86. 50410 IFC$="B"THENCO$=""
  87. 50420 IFC$="G"THENCO$=""
  88. 50430 IFC$="R"THENCO$=""
  89. 50440 IFC$="Y"THENCO$=""
  90. 50445 RETURN
  91. 50450 PRINT"";TAB(X);V$;CO$;A$:RETURN
  92. 50500 FORK=1TO4:PRINT"";TAB(X);V$;MID$(CO$,K,1);A$
  93. 50510 FORT=1TOD:NEXTT
  94. 50520 NEXTK:RETURN
  95. 50600 PRINT"";TAB(X);V$;:GOSUB50400:PRINTCO$;
  96. 50605 FORK=1TOLEN(A$)
  97. 50610 PRINTMID$(A$,K,1);:FORT=1TOBD:NEXTT:IFS=1THENGOSUB51100
  98. 50620 NEXTK:RETURN
  99. 50700 PRINT"";TAB(X);V$;:GOSUB50400:PRINTCO$;
  100. 50705 FORK=1TOLEN(A$)
  101. 50710 PRINTMID$(A$,K,1);CT$;"[157]";:FORT=1TOBD:NEXTT
  102. 50720 IFS=1THENGOSUB51100
  103. 50730 NEXTK:PRINT" ":RETURN
  104. 50800 FORK=1TO4:PRINT"";TAB(X);V$;"";MID$(G$,K,1);LI$
  105. 50810 FORT=1TOD:NEXTT
  106. 50820 NEXTK:RETURN
  107. 50900 PRINT"";TAB(X);V$;"";LI$:RETURN
  108. 51000 FORK=4TO1STEP-1:PRINT"";TAB(X);V$;"";MID$(G$,K,1);LI$
  109. 51010 FORT=1TOD:NEXTT
  110. 51020 NEXTK:RETURN
  111. 51100 POKE54296,8:POKE54296,0:RETURN
  112.